home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 018a / amac41.zip / QLST0.QM < prev    next >
Text File  |  1991-05-06  |  2KB  |  42 lines
  1. *                              QLST0.QM                     May 6, 1991
  2. *
  3. * Loads disk copy of all files in "Ring". See QLSTxx.QM for other
  4. * information. Must be first macro in file.
  5. *
  6. @0 macrobegin
  7.         endfile begline                 * Get to last file first
  8.  REPEAT:                                *
  9.         Unmarkblock Markline            * Mark it
  10.         Copy                            * Copy file name to scrap
  11.         Editfile Currentfilename " "    * Load current file plus
  12.         Paste Return                    * last marked on list into ring
  13.         Cursorup                        * If another file, move up
  14.  JTrue REPEAT:                          * When no more files
  15.         nextfile macroread              * read first file macro |
  16.         currentfilename                 *                       |TH mod
  17.         backspace backspace "mac" return*                       |
  18. * Added lines below to load disk copy of all files in "Ring" from FileList
  19.        Editfile 'NUL' Return    * Insert -or- GoTo NUL File
  20.        Begline Cursorright      * Put cursor in Col. 2 of NUL File
  21.        LOOP:                    * Main test loop
  22.            Nextfile             * Move to next file in Ring
  23.            Cursorleft           * Move cursor left (need for NUL test)
  24.            Jfalse LOOP:         * If couldn't move to left, it's not
  25.                                 * the NUL File AND cursor position
  26.                                 * has not changed -- LOOP again
  27.                                 *ELSE
  28.                                 * Check to see if in the NUL File
  29.            Cursorleft           * Move cursor left for NUL Test
  30.            Jfalse END:          * If couldn't move left -- We
  31.                                 * ARE in the NUL File and Need
  32.                                 * to END the Macro
  33.                                 *ELSE
  34.            Cursorright          * Move back to Col. 2 in NUL File
  35.        END:                     * Macro is DONE
  36.            Quit                 * Quit the NUL File
  37. *
  38. * 48 bytes Wed  10-31-1990  15:13:21 load all files in Ring
  39. * 52 bytes Mon  05-06-1991  20:43:41 chnanged file ! to NUL - faster
  40.  
  41. *.. Tom Hogshead
  42.